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Guida per l'input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contendono 'paro¬ 
le' racchiuse tra parentesi graffe / /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea- 


to contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parente¬ 
si si trova un carattere alfabetico "soli¬ 
tario " questo dovrà essere premuto 
contemporaneamente al tasto CON¬ 
TROL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen- 


mente a SHIFT mentre se è racchiuso 

caratteri grafici e 

di controllo del cur- 

da [<)] 

deve 

essere premu- 

sore o 

dei colori. 
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Per ricevere gli arretrati di dipkà compilare il seguente tagliando: 

K 

i Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome_ 


Cognome. 
Indirizzo _ 
CAP_ 


Città. 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 




dedicato a_ 


. Anno. 
Anno_ 


a L. 2 000 cad. per un totale di L. 


a mezzo 


□ assegno allegato 

K 


□ contanti allegati 
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Stop Bus 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro; detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
C16 e Plus/4). Per riattivarlo batti: 

SYS PEEK(5ó)*256 per il VIC 20; 
SYS 16128 per il CI6 e il PLUS/4,- 
SYS 40704 per il C 64. 
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STOP BUG per C64 e VIC 20 


100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)* 256 :PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32:READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI, A:NEXT 

130 IFCK022689THENPRINT" {GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141 ,34,999,169 
220 DATA32,1 41 ,36,3,169,999,1 41 ,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251 ,1 34,252,1 32,253,8,201 ,1 3,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,165,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,210,255,1 66,2 54,1 69,0 
310 DATAI 33,2 54,1 72,33,999,192,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,2 55,1 73 
340 DATA251,3,133,214,76,55,999 


STOP BUG per CI6 e PLUS/4 

100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

1 1 0 FORI = 1612 8TO16260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 ,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 
230 DATAI 69,0,1 33,6,96,32,2 32,23 5,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,169,1 8,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,1 64,76,1 1 7,63,32,7,208 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 
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) 

Le parole 



Questo è un gioco di logica e di 
intuizione, molto simile al Master 
Mind: il vostro VIC 20 sceglie una 
parola, e per indovinarla voi avete 
a disposizione un numero di tenta¬ 
tivi che dipende dalla lunghezza 
della parola. Ad ogni tentativo il 
computer vi segnala il numero di 
lettere al posto giusto e al posto 
sbagliato. 


Le parole proposte nel gioco sono 
contenute nelle istruzioni DATA al 
termine del listato, e possono esse¬ 
re facilmente sostitutite. Esse com¬ 
prendono sostantivi, verbi e nomi 
propri. Se decidete di arrendervi 
prima di aver esaurito i tentativi a 
vostra disposizione, digitate FINE 
al posto della parola. 


5 : 

REM PAROLE 

: rem 

220 

7 : 

POKE36879,1 57:POKE3 6878,1 5 

: rem 

75 

8 i 

3OSUB220 

:rem 

76 

11 

RESTORE 

: rem 

1 34 

1 5 

PRINT"{CLR}{BLK}" 

: rem 

90 

20 

S=36876:F=RND(0) 

: rem 

34 

25 

A=INT(RND(1)*100)+1 

: rem 

158 

30 

FORX=1TOA:READA$:NEXTX 

: rem 

128 

35 

B=LEN(A$) 

: rem 

124 

41 

C=B*2+5 

: rem 

227 

45 

PRINT"LA PAROLA HA "B"{ 6 SPAZI}LETTERE." 

: rem 

21 6 

46 

PRINT"{GIU'}TU HAI"C"RISPOSTE" 

: rem 

1 99 

50 

FORF=lTOl000 :NEXT 

: rem 

221 

51 

FORSH=1 TOC 

: rem 

60 

55 

PRINT"{ 2 GIU'}RISPOSTA NUMERO"SH 

: rem 

67 

60 

POKEl98,0:INPUTC$:IFC$="FINE"THENl95 

:rem 

101 

61 

IFLEN(C$)=BTHEN65 

: rem 

1 66 

62 

PRINT"{PUR}LA PAROLA DEVE AVERE{ 2 SPAZI} 

"LEN(A$)" 

LETT 


ERE.{BLK}" 

: rem 

1 00 

63 

FORF=lT02:POKES,0 :FORZ = lTOl00 :NEXT:POKES, 

180 :rem 

8 

64 

FORZ=1TOl00 :NEXT:NEXT:POKES,0 :GOT055 

: rem 

52 

65 

D=0:E=0:BN=2TB-1 

: rem 

63 

66 

IFC$=A$THENl80 

: rem 

204 

67 

IFC$ = "FINE"THENl 94 

: rem 

21 1 

70 

FORF=1TOB 

: rem 

231 

72 

G$=MID$(A$,F,1) 

: rem 

1 48 

73 

J$=MID$(C$,F,1) 

: rem 

154 

75 

IFG$=J$THEND=D + 1:BN=BN-2 t(F-l) 

:rem 

170 

80 

NEXTF 

: rem 

237 

83 

GOSUBl30 

: rem 

1 27 
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85 F0RF=1TOB :rem 237 

90 FORG=1TOB :rem 234 

9 5 IFMID$ (C$,F, 1 ) =MID$ (A$,G,1) ANDFOGAND (BNAND2 T (G-1))>0T 


HENE=E+1 :BN=BN-2 t(G-1) :G=B 

: rem 

52 

98 

NEXTG:NEXTF 

: rem 

1 82 

1 00 

GOSUBl65 

: rem 

1 73 

105 

IFD=0ANDE=0THENPRINT"{ 2 DES}{RVS}TUTTO 

SBAGLIATO 

J 


{OFF}" 

: rem 

1 44 

1 1 5 

NEXTSH 

: rem 

11 3 

1 20 

GOTO270 

: rem 

1 01 

1 30 

PRINT"{BLU}"D"AL POSTO GIUSTO{BLK}" 

: rem 

1 53 

1 32 

POKES,240:FORQQ=1TO100 :NEXTQQ:POKES,0 

: rem 

1 1 4 


1 33 

1 35 
1 65 
167 
1 68 

1 75 
1 80 

1 83 
1 85 

1 88 
191 

1 93 
1 94 
1 95 

1 96 

197 


F0RQQ=1TO100 :NEXTQQ:POKES,12 8:FORQQ=1T07 0 :NEXTQQ:POKE 
S,0 :rem 206 
RETURN : rem 121 
PRINT"{BLU}"E"AL POSTO SBAGLIATO{BLK}" :rem 93 
POKES,130:FORQQ=lTOl00:NEXTQQ:POKES,0 :rem 120 


FORQQ=1TO10 0 :NEXTQQ : 
S,0 

RETURN 

PRINT"{CLRjBENISSIMO! 


POKES,240:FORQQ=1T070 :NEXTQQ:POKE 

:rem 209 
:rem 125 

RISPOSTAE' ESATTA!{GIU'}" 

:rem 41 

PRINT"{BLK}IN"SH; :rem 106 

IFSH<5THENPRINT"TENTATIVI-{GIU'}":PRINT"GRANDIOSO ! !": 
GOTOl91 : rem 48 

PRINT"TENTATIVI-{GIU'}":PRINT"BRAVO!" :rem 14 

FORTT=138TO24 8 :POKES,TT:FORYY=1TO20 :NEXT:POKES,0 :FORY 
Y=1TO 2 0 :NEXT:NEXT :rem 227 

POKES,0 : rem 123 

POKES,130:FORF=lTOl00 :NEXT:POKES,0:GOTOl99 :rem 144 

FORF=255TOl28STEP-1 :POKES,F:POKES,0 :POKES+1,F:POKES+l 
,0 :NEXT : rem 58 

PRINT"{CLR}LA RISPOSTA CHE TU{ 4 SPAZIJDOVEVI DARE" 

:rem 104 

PRINT"ERA {RED}"A$"{BLK}.":PRINT"{GIU’}MI HAI DELUSO! 



! " 

: rem 

95 

198 

FORF=1TO6 0 0 0 :NEXT 

: rem 

31 

1 99 

REM 

: rem 

1 35 

200 

PRINT"{ 4 GIU'}{RVS} GIOCHI ANCORA (S/N)? 

{OFF}" 




: rem 

1 8 

205 

GETG$: IFG$ = "S"THENRUN 

: rem 

1 4 

21 0 

IFG$ < >"N"THEN2 0 5 

: rem 

95 

21 2 

PRINTCHR$(142) :PRINT"{CLR}": END 

: rem 

1 86 

220 

POKE646,12 :PRINT"{CLR}{GIU'}{ 2 SPAZljL E{ 

4 SPAZI 

}P 


A R O L E":POKE646,0 

: rem 

90 

249 

REM 

: rem 

1 31 

250 

PRINT"{ 2 GIU'}PREMI 'G' PER GIOCARE" 

: rem 

1 25 

255 

GETG$:IFG$="G"THENRETURN 

: rem 

242 

260 

G0T0255 

:rem 

1 09 

270 

FORF=l80TO12 8STEP-5 :POKES,F 

: rem 

1 66 
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275 FORJ = 1TO100 :NEXT: POKES,0 :rem 2 

280 FORJ=lTOl00:NEXT:NEXT :rem 95 

285 PRINT"{CLRjHAI FINITO I TENTATIVI{GIU'}LA PAROLA ERA. 

..{GIU 1 }" : rem 111 

290 PRINT"{RED}"A$"{BLK}":FORF=lT03000:NEXTF:GOTOl99 

:rem 209 

300 DATACOMPUTER,ELEFANTE,CANE,COME,INTITOLATO,TRE,CASA,V 
ERDE,TEMPO,GIORNO,DOPO,CIAO :rem 160 

310 DATAVASO,LANA,SERATA,TELÈFONO,MARE,ANNO,RADIO,FILM,SU 
L,AGO,UNO : rem 124 

320 DATAARTISTA,ANTONIO,CUORE,RIGA,ORO,SUO,MARIO,GIOCO,MA 
TRIMONIO : rem 175 

330 DATACARTONI,LIBRI,ANIMALE,FAI,ROBOT,DISEGNO,MARITO,FO 
OTBALL : rem 219 

340 DATAVUOI,COWBOY,AMBIENTE,NOTE,DATA,TUBO,TONTO,TRE,AIA 
,GLI,RADAR :rem 222 

350 DATATUBO,ERBA,FRA,ANNO,SOLE,MANGI,SPORT,MUCCA,ARMI,FI 
LO,POSTO : rem 75 

360 DATAFRANCA,ERA,LA,IL,LUI,MELA,PERA,ZONA,LEI,PISTA,MIO 
/ITALIA : rem 153 

370 DATAOMAGGIO,TIEPIDO,CINA,BARI,TENNIS,RING,MINA,ORA,DI 
RE,LORO :rem 242 

380 DATADURO,AMA,QUIZ,BASE,LATO,DAI,ZERO,CURA,GIGI,CHE,BE 
LLO,GIOCO : rem 62 

390 DATASTELLE,ANNA,DAVIDE,PADRE :rem 58 


Trova le monete 


Questo fantastico sioco gira su VIC 
20 inespanso. 

L'obiettivo principale è cercare 
con il proprio VIC-Detector le mo¬ 
nete preziose che sono state sot¬ 
terrate in una piccola area di terre¬ 
no. 

Facendo partire il gioco, si potran¬ 
no leggere delle brevi istruzioni su 
come giocare, e subito dopo ini¬ 
zierà il gioco. 

Sullo schermo, durante la partita, 
sono presenti degli indicatori che 


vi informano su quante monete 
avete raccolto e quanti punti avete 
totalizzato. Inoltre sullo schermo è 
presente il tempo in minuti e se¬ 
condi e un’area bianca, in fondo. 
Essa corrisponde all'area sulla 
quale sono presenti le monete, che 
possono essere di tre tipi diversi 
se si trova una moneta d’oro, si 
totalizzano 300 punti, se se ne tro¬ 
va una d’argento se ne totalizzano 
200 e infine se se ne trova una di 
bronzo si totalizzano 100 punti. 
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Per trovare le monete è necessario 
fornire al computer un numero di 
tre cifre (per i numeri sotto il 100 
si utilizzano sii zeri-, ad esempio 3 
si batte 003); dopo aver digitato il 
numero, che deve essere compre¬ 
so tra 1 e 286, viene esplorata la 
cetietta di terreno corrispondente 
a tale locazione. 

Infatti l'area presente in fondo allo 
schermo è di 286 locazioni. 

Se nella locazione che si è indicata 
al computer è presente una mone¬ 
ta, ne verrà indicato il tipo nella 
locazione stessa in cui si trova, con 
un carattere: G per l'oro, S per l'ar¬ 
gento e B per il bronzo. 

Questo simbolo rimarrà sullo 
schermo per qualche attimo, per 
poi scomparire. Dopo di ciò verrà 
incrementato di conseguenza il 


punteggio e il contatore delle mo¬ 
nete raccolte. 

Per raccogliere più monete possi¬ 
bili si hanno a disposizione 2 minu¬ 
ti. 

Allo scadere di tale periodo di 
tempo il computer fornirà il nume¬ 
ro di monete raccolte e il punteg¬ 
gio totalizzato durante l'intera par¬ 
tita. 

Questo è un gioco di agilità (in 
quanto bisogna essere il più veloci 
possibile a digitare le locazioni). 
Se; nel digitare la locazione ci si 
accorge di aver compiuto un erro¬ 
re, basta premere RETURN o INST/ 
DEL per cancellare tutte e tre le ci¬ 
fre in un sol colpo. E ora divertitevi 
con questo strabiliante gioco di 
velocità e... buona raccolta! 


10 PRINTCHR$(14)"{CLR}{RED}** TROVA { 2 SPAZI} LE MONETE ** 
{BLU}" :rem 196 

20 PRINT"LO SCOPO DEL GIOCO E' DI TROVARE PIU' MONETEPOSS 
IBILE IN 2 MINUTI." :rem 136 

30 PRINT"LE MONETE VALGONO:{ 4 SPAZI}{GIU'}{YEL}ORO{BLU}. 

.300 PUNTI{ 4 SPAZI}{GIU'}{CYN}ARGENTO{BLU}..200 P 

UNTI{ 4 SPAZI}" :rem 175 

40 PRINT"{PUR}BRONZO{BLU}... 100 PUNTI" :rem 117 

50 PRINT"{ 2 GIU'}{GRN}*** PREMI UN TASTO ***"; :rem 216 

60 GETA$:IFA$=""THEN60 :rem 239 

70 PRINT"{CLR}{RED}** TROVA { 2 SPAZI} LE MONETE **{BLU}" 

: rem 19 

80 PRINT"CI SONO 286 LOCAZIONI IN CUI PUÒ’ ESSERE 

{ 4 SPAZIJCONTENUTA UNA MONETA." :rem 173 

90 PRINT"PER CERCARE LE MONETE BISOGNA BATTERE NUMERICOMP 
RESI TRA 1 E 286." :rem 86 

92 PRINT"PER DIGITARE NUMERI ALDI SOTTO DI 100, BISO-GNA 

UTILIZZARE LO ZERO"; :rem 18 

93 PRINT"PER COMPORRE UN NUMERODI TRE CIFRE(ES.3=003)" 

:rem 127 

95 PRINT"{ 2 GIU'}{GRN}*** PREMI UN TASTO ***"; :rem 225 

97 GETA$:IFA$=""THEN97 :rem 3 

100 PRINTCHR$(142)"{CLR}{RED}** TROVA{ 2 SPAZI}LE MONETE 
**{BLU}" :rem 166 

105 PRINT"{HOME}{ 2 GIU 1 }TEMPO":TI$ = "000000" :rem 189 
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1 1 0 

1 20 

130 
1 40 
1 90 
200 
21 0 
220 
230 
240 
250 
260 
270 
280 
285 

290 

300 

310 

31 5 
320 
330 
340 

350 

355 

360 

362 

370 


{ 4 

5 GIU'}{ 


: rem 
: rem 
: rem 


PRINT"{GIU'}{YEL}ORO{ 3 SPAZI}{CYNjARG 
{PUR{BRONZO{BLU}" 

PRINT"{HOME}{ 5 GIU'}"SG"{HOME}{ 

{HOME}{ 5 GIU'}{ 14 DES}"SB 
PRINT"PUNTI"SC 

PRINT"{GIU'JLOCAZIONE (1-286) 

F0RI = 7878T07899: POREI,100:POKE1 + 30720,0:NEXT:rem 
A=6 :rem 

FORI = lTO20 : rem 

RN=INT(RND(1)*286)+1 :rem 

POKE7899+RN,A :rem 

NEXT : rem 

IFA=1THEN280 :rem 

IFA=6THENA=18 :GOT0210 :rem 

A=1: GOTO210 :rem 

LN%=3:PRINT"{HOME}{ 8 GIU'}"SPC(17); :rem 


SPAZI} 

:rem 62 
6 DES}"SS" 
61 
1 39 

72 
134 

70 
54 
57 
221 
213 
1 58 
247 
78 

73 


ST%=POS(X):FORI=lTOLN%:PRINT"{RVS} 
CHR$(13)""SPC(ST%):CC$="" 

FORI=lTOLN% 

GETAA$ 


{OFF}";:NEXT:PRINT 


: rem 
: rem 
: rem 
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1 55 
25 


PRINT"{HOME}{ 2 GIU'}"SPC(5)"{RVS}"MID$(TI$,4,1)" 

{OFF}MIN. {RVS}"RIGHT$(TI$,2)"{OFF}SEC." :rem 20 

IFVAL(TI$)>=200THEN2000 :rem 27 

IFAA$=""ORAA$=CHR$(20)THEN300 :rem 69 

IFAA$=CHR$(13)THENI=LN%:GOTO350 :rem 61 

PRINT"{HOME}{ 8 GIU'}"SPC(ST%+B)AA$; :CC$=CC$+AA$:B=B+ 
1 :rem 71 

NEXT:PRINTCHR$(13)"{HOME}{ 8 GIU'}"SPC(ST%)"{RVS}"CC$ 
"{OFF}":B=0 : rem 245 

IFVAL(CC$)>2 860RVAL(CC$)<1THEN280 :rem 157 

IFPEEK(7 899+VAL(CC$))=6THENPOKE7899+VAL(CC$) ,7:POKE78 
99+30720+VAL(CC$),0 :rem 124 

IFPEEK(7899+VAL(CC$))=7THENSG=SG+1:SC=SC+300:G0T0385 

:rem 110 

IFPEEK(7899+VAL(CC$))=18THENPOKE7899+VAL(CC$),19:POKE 


7899+30720+VAL(CC$),0 :rem 227 

372 IFPEEK(7899+VAL(CC$))=19THENSS=SS+1:SC=SC+200:G0T0385 

: rem 1 85 

380 IFPEEK(7899+VAL(CC$))=1THENPOKE7899+VAL(CC$),2:POKE78 
99+30720+VAL(CC$),0 :rem 116 

382 IFPEEK(7899+VAL(CC$))=2THENSB=SB+1:SC=SC+100:GOTO385 



: rem 

95 

383 GOTO280 

: rem 

11 3 

385 FORQU = lTO! 000 : NEXT: POKE7899+VAL (CC$ ) ,32 .-rem 

92 

390 PRINT"{HOME}{ 5 GIU'}"SG" 

{HOME}{ 5 GIU'}{ 6 DES}" 

SS" 

{HOME}{ 5 GIU'}{ 14 DES}" 

SB :rem 

70 

392 PRINT"PUNTI";SC 

: rem 

208 

1000 POKEl98,0:GOT0280 

: rem 

251 

2000 A=0 

: rem 

1 1 2 

2010 POKE646,A 

: rem 

255 


10 


2020 PRINT"{CLR}{ 3 GIU'}IN 2 MIN. HAI RACCOLTO": rem 95 

202 5 PRINT"{GIU'}{YEL}ORO{BLU}."SG:PRINT"{GIU'}{CYN} 

ARGENTO{BLU}.."SStPRINT"{GIU'}{PUR}BRONZO{BLU}..."SB 

:rem 194 


2026 PRINT"{ 2 GIU'}{RED}PUNTEGGIO TOTALE"SC:PRINT" 


{ 2 GIU'}{GRN}VUOI RITENTARE (S/N)" :rem 
2030 A=A+1:FORW=lTOl000:NEXT:IFA=16THEN2000 :rem 
2035 IFA=1THENA= 2 :rem 
2040 GETAA$: IFAA$O"S"ANDAA$O"N"THEN201 0 treni 
2050 IFAA$="S"THENCLR:GOTOl00 : rem 
2060 POKE646,6:PRINT"{CLR}" trem 


71 
66 
231 
67 
228 
1 51 




CI6>-plus/4 

— 

Semaforo 


È un gioco per due persone scritto 
appositamente per controllare ed 
allenare i riflessi. 

All'inizio viene chiesto all'utente 
se desidera leggere le istruzioni 
esplicative comprese nel program¬ 
ma. Dopo le istruzioni inizia il gio¬ 
co vero e proprio e un semaforo 
viene visualizzato al centro dello 
schermo. 

Le luci di questo semaforo comin¬ 
ciano ad illuminarsi ad una ad una 
dall'alto verso il basso, come in un 
conto alla rovescia. Quando l'ulti¬ 
ma luce si accende, può apparire 
in tre diversi colori. 

I due giocatori, per partecipare al 
gioco, devono usare due tasti: il 
giocatore di sinistra il tasto "A", 


quello di destra il tasto “*". I vari 
colori che la lampada finale del se¬ 
maforo può assumere sono tre: 
verde, giallo o viola. Nel caso la 
lampada diventi gialla, il primo dei 
due giocatori che preme il suo ta¬ 
sto vince la manche e si aggiudica 
un punto. Se invece la lampada di¬ 
venta verde, solo il giocatore di si¬ 
nistra ha diritto a premere il tasto, 
guadagnando un punto. Nel caso 
che la lampada divenga viola, toc¬ 
ca al giocatore di destra premere il 
suo tasto. Quando nella troppa fo¬ 
ga un giocatore preme il proprio 
bottone se non è il suo turno, per¬ 
de tre punti. 

Il primo che raggiunge i 10 punti 
vince la partita. 


15 COLORO,2,5:COLOR4,3,0:F=RND(0) trem 158 

20 Al=2227:A2=Al+40:A3=A2+40:A4=A3+40:A5=A4+40:A6=A5+40:R 
S=0:LS=0:DE=90 trem 132 


11 











30 PRINT"{CLR}{GIU*}{BLK}{ 9 DES}ISTRUZIONI?(S=SI/N=NO)" 



:rem 

160 

35 GETG$:IFG$="S"THEN350 

: rem 

1 30 

40 IFG$ < >"N"THEN3 5 

: rem 

1 

45 PRINTCHR$(142)"{CLR}{GIU'}{BLU}{ 12 DES}S 

E M A F 

0 R 

0{BLK}" 

: rem 

46 

50 PRINT"{GIU*}"TAB(19)"[<0>]" 

:rem 

21 4 

55 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

8 

57 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

1 0 

60 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

4 

62 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

6 

65 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

9 

67 PRINTTAB(18)"[<L>]Q[<J>]" 

: rem 

11 

70 PRINTTAB(19)"{RVS} {OFF}" 

: rem 

110 

75 PRINTTAB(19)"[< + >] " 

:rem 

11 7 

80 PRINTTAB(1 9)"[<+>] " 

:rem 

11 3 

85 PRINTTAB(19)"[<+>] " 

: rem 

118 

90 PRINTTAB(1 9)"[<+>] " 

: rem 

11 4 

95 PRINTTAB(18)"[< 3 U>]{GIU'}" 

: rem 

9 

100 POKEAl,2 

: rem 

1 44 

105 FORF=lT02000:NEXT 

: rem 

1 5 

110 POKEAl,0:POKEA2,2:GOSUB500 

: rem 

24 

117 POKEA2,0 :POKEA3, 7 :GOSUB500 

:rem 

38 

118 POKEA3, 0 :POKEA4,7 :GOSUB500 

: rem 

41 

119 POKEA4,0 :POKEA5,6 :GOSUB500:POKEl98,0 

:rem 

146 

120 D=INT(RND(1)*4)+1 

: rem 

1 1 2 

125 IFD = 1THENE= 7 

: rem 

193 

130 IFD=2THENE=7 

:rem 

1 90 

135 IFD=3THENE=4 

: rem 

193 

137 IFD=4THENE=3 

: rem 

195 

140 POKEA5,0 :POKEA6,E:POKES,2 35 

: rem 

105 

145 ONDGOTOl50,150,165,165 

: rem 

1 56 

150 GETG$:IFG$ = "A"ORG$ = "*"THENl 60 

:rem 

84 

155 GOTO150 

: rem 

106 

160 POKES,0:GOTO260 

: rem 

1 28 

165 GETG$:IFG$="A"ORG$="*"THENl75 

:rem 

96 

170 G0T0165 

: rem 

1 09 

175 IFG$ = "A"ANDE= 3THEN260 

: rem 

168 

180 IFG$ = "*"ANDE= 4THEN260 

: rem 

142 

190 IFE=3THENGOSUB250 

: rem 

36 

192 IFDE>0THENDE=DE-50 

: rem 

50 

195 PRINT"{RVS}SBAGLIATO{OFF}" 

:rem 

1 70 

200 IFE=3THENGOSUB250 

:rem 

28 

205 PRINT"{GIU'}NON E' IL" 

:rem 

101 

210 IFE=3THENGOSUB250 

: rem 

29 

215 PRINT"TUO TURNO." 

:rem 

39 

220 IFE=3THENRS=RS-3 :GOTO230 

: rem 

246 

225 LS=LS-3 

: rem 

116 

230 REM 

: rem 

121 

238 FORF= 1 TO1000 :NEXTF 

: rem 

91 
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240 

POKEl98,0 t GOTO4 5 

t rem 

159 

250 

PRINTTAB(30); 

t rem 

234 

255 

RETURN 

trem 

124 

260 

IFG$ = "*"THEN2 9 0 

trem 

7 

265 

LS=LS+1t DE=DE-50 tIFLS = 10THEN400 

t rem 

88 

270 

PRINT"BRAVO 111!" 

t rem 

1 04 

275 

PRINT"{GIU'}PUNTI{DES}"LS 

t rem 

204 

277 

REM 

t rem 

1 32 

282 

FORF = lT02000 t NEXTF 

t rem 

91 

285 

POKEl98,01 GOTO4 5 

t rem 

1 68 

290 

RS=RS+1t DE=DE-50 tIFRS = 10THEN400 

trem 

1 04 

295 

PRINTTAB ( 30) ; "BRAVO 11M" 

t rem 

53 

300 

PRINTTAB(30);"PUNTI{DES}"RS 

t rem 

1 24 

301 

G0T0277 

t rem 

1 09 

350 

PRINTCHR?(14)"{CLR}[<7>]{ 12 DES}S 

E M A F O R O" 

t rem 

5 


355 PRINT"{BLK}{GIU'}E' UN GIOCO PER PROVARE I RIFLESSI." 

:rem 237 

357 PRINT" n, GIOCATORE DI SINISTRA USA IL TASTO": rem 37 

358 PRINT"'A', QUELLO DI DESTRA USA IL TASTO 

:rem 125 

360 PRINT"SE L'ULTIMA LUCE AD ACCENDERSI E' GIALLA"; 

trem 145 

362 PRINT"IL PRIMO GIOCATORE CHE PREME IL SUO TA- STO GUA 
DAGNERA' UN PUNTO." :rem 15 

364 PRINT"SE L'ULTIMA LUCE E' VERDE, IL GIOCATORE" 

:rem 46 

365 PRINT"DI SINISTRA DEVE PREMERE IL SUO TASTO;" 

:rem 239 


366 

367 

368 
. 371 

373 

374 

375 

378 

379 

380 
400 
405 
410 
415 


PRINT"SE E' VIOLA, TOCCA INVECE AL GIOCATORE 
{ 2 SPAZI}DI DESTRA." :rem 231 

PRINT"{GIU'} * * { 2 SPAZI}PREMERE UN TASTO PER CONTINUA 
RE.{ 2 SPAZI}**"; :rem 48 

GETG$:IFG$=""THEN368 ;rem 113 

PRINT"{CLR}[<7>]{ 12 DES}S E M A F O R 0{BLK}" 

:rem 225 

PRINT"{GIU'}SE UN GIOCATORE PREME IL SUO TASTO QUAN-" 
; trem 4 


PRINT"DO E' LA VOLTA DELL'AVVERSARIO, PERDE 3 PUNTI." 


PRINT"IL PRIMO CONCORRENTE CHE RAGGIUNGE 
INCE." 

PRINT"{GIU'}**{ 2 SPAZI}PREMERE UN TASTO 
RE.{ 2 SPAZI}**"; 

GETT$: IFT$ = ""THEN37 9 
PRINTCHR$(142)"{CLR}":G0T045 
IFRS=10THENGOSUB250 
PRINT"{RVSjHAI VINTO{OFF}" 

IFRS=10THENGOSUB250 
PRINT"{GIU'}BRAVISSIMO" 


trem 88 
I 10 PUNTI V 
trem 148 
PER CONTINUA 
trem 50 
trem 143 
trem 196 
t rem 172 
t rem 112 
t rem 173 
trem 123 
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420 

REM 

: rem 

122 

430 

PRINT"{RVS}{ 11 DES}GIOCHI ANCORA(S/N){OFF}" 

: rem 

21 1 

435 

GETG$:IFG$="S"THENl5 

: rem 

1 32 

440 

IFG$ = "N"THENPRINTCHR$(142)"{CLR}": END 

: rem 

238 

445 

G0T0435 

: rem 

114 

500 

POKES,231:FORF=1TO 3 0 0 :NEXT:POKES,0 

: rem 

117 

51 0 

FORF=1TODE:NEXT: RETURN 

: rem 

240 


Ioti 



Una ondata di malefiche saette at¬ 
tacca la superficie terrestre, ma tu 
con il tuo coraggio e con i tuoi po¬ 
tenti cannoni laser potrai, se non 
garantire la salvezza alla tua città, 
almeno ritardarne la completa di¬ 
struzione. Il programma è molto in¬ 
teressante poiché utilizza la pagina 
grafica del CI 6, come potrai notare 


dell'abbonante uso di istruzioni 
DRAW. 

Per giocare devi spostare il mirino 
dei laser presso la punta delle saet¬ 
te per mezzo dei tasti [Q] (su), [Z] 
(giù), [I] (sinistra) e [P] (destra), fa¬ 
cendo poi fuoco tramite la barra 
spaziatrice. Buon divertimento! 


1 DIMNM%(3,2):C%=7:T=0:G%=3:SC%=0:LV=1:LX=79:LY=79:GRAPHI 

C4,1 :rem 96 

2 COLORO,2,2:COLOR4,1iCOLORl,8 :COLOR2,3,4:COLOR3,15,5 :VOL 

8 :rem 33 

3 GOSUB41 : rem 24 

4 GETA$:T=T+1:GOSUB20:IFT=6-LVTHENGOSUB23 :rem 131 

5 IFA$ = "I"THENGOSUB21 :LX=LX-7:IFLX<4THENLX=4 :rem 73 

6 IFA$="P"THENGOSUB21:LX=LX+7:IFLX>155THENLX=155:rem 31 

7 IFA$ = "Q"THENGOSUB21:LY=LY-9 :IFLY<5THENLY=5 :rem 91 

8 IFA$="Z"THENGOSUB21:LY=LY+9:IFLY>147THENLY=147:rem 51 

9 IFA$<>" "ORG%=OTHEN4 :rem 200 

10 IF(G%AND2)=2THENDRAWl,3,148TOLX-2,LY :rem 78 

11 IF(G%ANDl)=1THENDRAWl,1 56,1 4 8TOLX+2,LY :rem 180 

12 DRAWO,3,148TOLX-2,LY:DRAWO,156,148TOLX+2,LY:SOUND3,100 


0,15 :rem 115 

13 FORI=0TO3:IFNM%(1,0)<=0THEN17 :rem 150 

14 IFNM%(1,0)<LX-1OORNM%(1,0)>LX+1OORNM%(1,1)<LY-1OORNM%( 

1,1)>LY+1OTHENl7 : rem 2 
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1 5 

1 6 
1 7 
1 8 

1 9 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


SOUND3,900,25:SC% =SC%+LV* 5 :CIRCLE2,NM%(1,0) ,NM%(1,1) ,2 
,4:K% = K% + 1:NM%(1,0)=-l : rem 114 

PRINT"{ 3 GIU'}PUNTI : "SC% : rem 240 

NEXTI : rem 240 

IFK%=LV*4THENLV=LV+1:SCNCLR:K% = 0:PRINT"PUNTI : "SC%:GOS 
UB41 :rem 118 

GOTO4 : rem 215 

B%=2:G0T022 :rem 15 

B%=0 :rem 55 

DRAWB%,LX,LY-5TOLX,LY+5:DRAWB%,LX-3,LYTOLX+3,LY: RETURN 

21 2 
21 6 
1 77 
1 43 
122 
1 75 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


FORI=0TO3 

IFNM%(1,0)>0THEN27 
IFRND(1)>.08*LVTHEN40 

NM%(1,0)=INT(RND(1)*140+5):NM%(I,1)=0 
IFRND(1)<.3THENNM%(1,2)=INT(RND(1)*11-5) 

IFNM%(1,0)+NM%(1,2)<5THENNM%(I,2)=INT(RND(1)*6) 

:rem 41 

IFNM%(1,0)+NM%(I,2)>154THENNM%(I,2)=-INT(RND(1)*6) 

: rem 190 

NM%(I,0)=NM%(1,0)+NM%(I,2) :NM%(1,1)=NM%(1,1 )+5 

:rem 52 

DRAW3,NM%(1,0),NM%(1,1)TONM%(1,0)-NM%(1,2),NM%(1,1)-5 

: rem 13 

IFNM%(1,1)<154THEN39 : rem 28 

IF(C%ANDl)>0ANDNM%(1,1)>24ANDNM%(I,0)<56THENC%=C%-1:D% 
=0 :GOSUB52 :rem 73 

IF(C%AND2)>0ANDNM%(1,0)>64ANDNM%(1,0)<96THENC%=C%-2:D% 
= 1 :GOSUB52 : rem 84 

IF(C%AND4)>0ANDNM%(I,0)>104ANDNM%(I,0)<136THENC%=C%-4: 


D%=2:GOSUB52 :rem 176 
IFNM%(I,0)<13THENG%=(G%ANDl):CHARl,1,19,"*" :rem 253 
IFNM%(1,0)>147THENG%=(G%AND2):CHARl,38,19,"*": rem 115 
IFC% = OTHENCHARl,15,12,"FINE GIOCO": END :rem 130 
IFNM%(1,1)>159THENNM%(1,0)=-l :rem 15 
NEXTI:T=0:RETURN :rem 1 
IF(G%AND2)=0THEN44 : rem 186 
DRAW3,0,14 8T03,14 8TO6,151TOl2,151TOl2,154TOO,154TOO,14 
8 :PAINT3,3,151 . :rem 252 
DRAW3,1 59,1 48T01 56,1 4 8T01 53,1 51 TOl 47,1 51 TOl 47,1 54T01 59 
,154T0159,148:PAINT3,156,150 :rem 240 
IF(G%ANDl)=0THEN46 : rem 190 

DRAW3,1 59,1 48T0156,148T0153,151TOl 47,151TOl47,154TO1 59 
,154T0159,148:PAINT3,156,150 :rem 242 
FORI = 0TO2:IF(C%AND(2 11))=0THEN51 :rem 93 
DRAW2,25+1*40,154T025+I*40,159TO55+I*40,159TO55+I*40,1 
54TO53+I*40,1 54 treni 127 
FORJ=0TO3:DRAW2TO53+I*40-J*7,146TO48+I*40-J*7,146T048+ 
1*40-J*7,154 : rem 133 
DRAW2TO46+I*40-J*7,154:NEXT :rem 243 

15 


50 PAINT2,38+1*40,1 57 :rem 117 

51 NEXTI:RETURN :rem 8 

52 CHARl,7+D%*10,l9,"######":SOUND3,600,20:RETURN 


Fiammiferi 



Fiammiferi è un gioco molto popo¬ 
lare che richiede abilità e astuzia 
per uscirne vincitori. 

Esso si ispira al noto gioco che 
pressoché tutti conoscono. 

In esso bisognerà battersi contro il 
computer. 

Il gioco prevede che ci siano un 
numero casuale di fiammiferi sullo 
schermo; a turno il giocatore e il 
computer possono prendere alcu¬ 
ni fiammiferi dal gruppo, ma non 
più di tre. 


1 REM FIAMMIFERI 


:rem 

238 

10 

A=INT(RND(1)*8)+32 


: rem 

115 

50 

GOSUB200 


: rem 

119 

60 

GOTO350 


:rem 

55 

100 

IFA>1THENRETURN 


:rem 

223 

105 

IFL=OTHENPRINT"{CLR}{ 

11 SPAZI}HO VINTO LA MANCHE" 

:CS 


=CS+1 


: rem 

208 

110 

IFL=1THENPRINT"{CLR}{ 

10 SPAZI}HAI VINTO LA 

MANCHE 

1" :P 


S=PS+1 


: rem 

34 

115 

IFCS>40RPS>4THENG0SUB1500:GOTOl 50 

:rem 

98 

1 20 

PRINT:PRINT"{BLK}{ 10 

SPAZI}PUNTEGGI AGGIORNATI:" 





:rem 

61 

1 25 

PRINT:PRINT"C64=";CS 


: rem 

235 

1 30 

PRINT:PRINT"TU =";PS; 

"{BLU}" 

:rem 

142 

1 35 

F0RXX=1T03:GOSUBl 500: 

NEXTXX 

: rem 

29 

140 

A=INT(RND(1)*8)+32:RETURN 

:rem 

193 

1 50 

PRINT"{CLR}" 


:rem 

250 

155 

PRINT:PRINT"{ 9 SPAZI}IL GIOCO E' TERMINATO 1 

it 





:rem 

121 


Lo scopo del gioco è di lasciare 
all'avversario l'ultimo fiammifero. 
La partita è divisa in varie man¬ 
che. 

Il vincitore di ciascuna manche si 
aggiudica un punto e, chi per pri¬ 
mo arriva ai cinque punti, ha vinto 
la partita. 

Il computer è un ottimo giocatore 
e perciò per batterlo in questa "sfi¬ 
da all’ultimo fiammifero" bisogna 
essere molto astuti e preparati. 
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1 60 

PRINT 


: rem 

36 

165 

PRINT"{ 12 SPAZI}PUNTEGGI FINALI:" 


: rem 

1 89 

1 70 

PRINT 


:rem 

37 

1 75 

PRINT"C64=";CS 


: rem 

41 

1 80 

PRINT 


:rem 

38 

1 85 

PRINT"TU ="; PS 


: rem 

51 

190 

GOTOl90 


: rem 

1 09 

200 

PRINT"{CLR}" 


: rem 

246 

210 

GOSUBl000 


:rem 

21 2 

230 

FORE=lTOl0 


: rem 

51 

260 

POKE532 80,6 :POKE532 81 ,1 :FORWW=lTO20: 

NEXT 

: rem 

175 

270 

PRINT"{ 12 SPAZI}***FIAMMIFERI***" 


: rem 

63 

280 

FORF=lTO200:NEXT 


: rem 

227 

310 

NEXTE 


: rem 

24 

320 

RETURN 


: rem 

117 

350 

IFRND(1)<.5THEN400 


: rem 

239 

360 

GOTO500 


: rem 

1 03 

400 

PRINT"{CLR}" 


:rem 

248 

410 

GOSUBl000 


: rem 

214 

420 

PRINT"{ 9 SPAZI}CI SONO"; A;"FIAMMIFERI" 

: rem 

6 

430 

PRINT" { 3 GIU'H 12 SPAZI}QUANTI NE 

PRENDI" 

: rem 

194 

440 

INPUTY 


: rem 

129 

450 

IFY<1ORY>3THENPRINT"NON BARARE!":GOT0440 

:rem 

29 

470 

A=A-Y:L=1 


: rem 

212 

480 

GOSUBl00 


: rem 

1 73 

500 

PRINT"{CLR}" 


: rem 

249 

51 0 

PRINT"{ 11 SPAZI}E' IL MIO TURNO..." 

:PRINT 

: rem 

54 

530 

GOSUBl000 


: rem 

217 

540 

IFA=2THENM=1 


: rem 

1 94 

545 

IFA=3THENM=2 


:rem 

201 

550 

IFA=4THENM=3 


: rem 

1 99 

555 

IFA=5THENM=1 


: rem 

203 

560 

IFA=6THENM=1 


:rem 

200 

565 

IFA=7THENM=2 


: rem 

207 

570 

IFA>7THENM=INT(RND(1)*3)+l 


: rem 

245 

605 

PRINT"{ 9 SPAZI}CI SONO";A;"FIAMMIFERI":PRINT 





: rem 

210 

607 

GOSUBl500 


: rem 

227 

610 

PRINT"{GIU'}{ 9 SPAZI}VOGLIO PRENDERNE- 

M: rem 

251 

620 

GOSUBl500 


: rem 

222 

630 

A=A-M:L=0 


: rem 

197 

640 

GOSUBl00 


: rem 

1 71 

650 

GOTO400 


:rem 

104 

1 000 

FORI=lTOA 


: rem 

67 

1 01 0 

POKEl504+G,81 


: rem 

194 

1 020 

POKE55776+G,2 


: rem 

208 

1 040 

G=G+1:NEXTI 


: rem 

1 74 

1 045 

G=0 


: rem 

1 26 

1050 

FORI=1TOA 


: rem 

72 

1 060 

POKEl544+G,229 


: rem 

255 


17 


1070 

POKE55816+G,7 

: rem 

21 3 

1090 

G=G+1:NEXTI 

: rem 

179 

1095 

G=0 

: rem 

1 31 

1100 

FORI=lTOA 

: rem 

68 

mo 

POKEl584+G,229 

: rem 

255 

1120 

POKE55856+G,7 

: rem 

213 

1140 

G=G+1:NEXTI 

:rem 

175 

11 50 

G=0:RETURN 

: rem 

1 49 

1 200 

RETURN 

: rem 

163 

1 500 

FORZ=lTOl500:NEXT 

: rem 

87 

1510 

RETURN 

: rem 

167 


User Basic 


Questo programma non è un gio¬ 
co, o perlomeno può non essere 
strettamente ritenuto tale. Serve ad 
alterare ognuna delle istruzioni 
BASIOcontenute in memoria ROM; 
ad esempio puoi cambiare l'istru¬ 
zione PRINT con qualsiasi altra pa¬ 
rola, facendo però attenzione che 
risulti della medesima lunghezza. 
All'Inizio del programma il C64 leg¬ 
ge il contenuto della memoria 
ROM, ed è quindi necessario 



_ 


aspettare per circa due minuti. 
Successivamente il computer ti 
chiede quale istruzione vuoi cam¬ 
biare. Una volta scelta l'istruzione 
puoi sostituire la parola-chiave con 
quella "personalizzata". Compiuto 
anche questo passaggio il compu¬ 
ter ti chiede se vuoi cambiare altre 
istruzioni, devi quindi premere S o 
N (si o no): premendo N il tuo C64 
è pronto a ricevere programmi 
contenenti i nuovi comandi. 


100 POKE53280,6 
1 1 0 POKE53281 ,7 

120 PRINTCHR$(147)CHR$(17)CHR$(17)CHR$(17)CHR$( 1 44) ; 
130 PRINT" PER FAVORE ATTENDERE, STO TRASFERENDO" 

140 PRINT" LA MEMORIA ROM NELLA MEMORIA RAM." 

150 FORK=40960TO49151 
160 SYS(47140)K,PEEK(K) 

170 NEXT 

180 SYS(47140)1,54 
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1 90 

200 

21 0 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 0 

520 

530 

540 

550 

560 

570 

580 

590 

600 


PRINTCHR$(147)SPC(4)CHR$(18)CHR$(14 4) ; 

PRINT " IMPOSTA IL COMANDO DA CAMBIARE ”CHR$(17) 
SYS43967ROS 

PRINTCHR$ (1 7 ) CHR$ (1 7)CHR$ (1 7)CHR$ (1 7)CHR$ (17)" 

{ 4 SPAZI}RICERCA DEL COMANDO." 

RO$=LEFT$(RO$,LEN(RO$)-1)+CHR$(ASC(RIGHT$(RO$,1))+128 

) 

GOSUB4 80 
IFFL=-1THEN2 80 

PRINTCHR$ (17) CHR$ (17) CHR$ (18) "NON ESISTE, PROVA DI NU 
OVO. " 

FORP=1T02000 :NEXT:GOTO390 
FORI=1T04 
PRINTCHR$(17) 

NEXT 

PRINTCHR$ (28)" IMPOSTA LA NUOVA PAROLA" 

PRINT" (DEVE AVERE LA STESSA LUNGHEZZA)"CHR$(17) 
SYS43967US$ 

IFLEN(US$)<>LEN(RO$)THEN280 

US$=LEFT$(US$,LEN(US$)-1)+CHR$(ASC(RIGHT$(US$,1))+128 
) 

FORJ=1TOLEN(US$) 

SYS(471 40)HO+J-1 ,ASC(MID$(US$,J,1)) 

NEXT 

PRINTCHR?(147) 

FORI=0TO7 
PRINTCHR$(17) 

NEXT 

PRINT"{ 2 SPAZI}VUOI CAMBIARE UN ALTRO COMANDO (S/N)" 
SYS(43899)A$ 

IFA$<>"S"ANDA$O"N"THEN4 40 

IFA$="N"THENEND 

GOTO!90 

H0=40960 

C=ASC(MID$(RO$,1,1)) 

IFPEEK(HO)=CTHEN540 
HO=HO+l 

IFHO = >42000THENFL=0: RETURN 

GOTO490 

HO=HO+l 

FORJ=2TOLEN(RO$) 

IFPEEK (HO+J-2) OASC (MID$ (RO$ , J, 1 ) ) THEN490 

NEXT 

HO=HO-1 

FL=- 1 

RETURN 


19 





QUALCOSA DI SUPER, DI INEDITO, 
DI IRRESISTIBILE 










IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 











Sei un topolino che ha la sventura 
di trovarsi in un labirinto in compa¬ 
gnia di un pericolosissimo gatto, 
che si trova tra te e l’uscita. Scopo 


del gioco è riuscire a scappare sen¬ 
za cadere nelle grinfie del felino. 
Per muoverti usa i tasti A, X, D e 
W oppure il joystick in porta n. 2. 


10 S=1024:C=54272 

20 POKE53280,9 :POKE53281 ,1 

80 P=INT(RND(1)*960)+1 046 :OP=P:E=S+82 

90 GOSUB8000 

100 DIMA(3) 

no A(0) = 2:A(1 ) = -80:A(2) = -2:A(3) = 80 

120 WL=160 :HL= 32 :A=S+82 

130 PRINT"{CLR}{RVS}[<2>][< 39 +>] "; 

140 F0RI=1T023 

150 PRINT"[<+>]{BLU}{ 37 SPAZI}[<2>][<+>] 

160 NEXT 

170 PRINT"[< 39 + > ] {OFF}";:POKE2023,1 60:POKE2023+C,9 
210 POKEA,4 

220 J=INT(RND(1)*4):X=J 

230 B=A+A(J):IFPEEK(B)=WLTHENPOKEB,J:POKEA+A(J)/2,HL:A=B: 
GOTO220 

240 J= ( J+l ) *-(J<3) : IFJOXTHEN230 

250 J=PEEK(A):POKEA,HL:IFJ<4THENA=A-A(J):GOTO220 
270 P=INT (RND ( 1 ) * 960 ) +S : OP=P : IFPEEK(P) O32THEN270 
310 POKEA,81:POKEA+C,0:J=2 
1010 FORK=1T02 

1015 B = A+A(J)/2:IFPEEK(B)=HLTHENPOKEB,81 :POKEB+C,0 :POKEA, 
HL:A=B:J=J+2+4*(J>1) 

1017 J=J-1-4*(J=0) 

1020 IFB=PTHEN5000 
1025 NEXT 

1100 D=PEEK(203):JS=127-PEEK(56320) 

1110 IFD=23ORJS=2THENP=P+40 
1120 IFD=1OORJS=4THENP=P-1 
1130 IFD=180RJS=8THENP=P+1 
1140 IFD=90RJS=1THENP=P-40 
1160 IFA=PTHEN5000 
1170 IFP=ETHEN6000 

1180 IFPEEK(P)=160THENP=OP:GOTOl700 

1 500 POKEP, 42 : POKEP+C, 2 : IFD0 640RJSOOTHENPOKEOP, 32 
1510 FORK=lTOl0 :NEXT 
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1600 OP=P 
1700 POKEE,21 
2000 GOTOIOIO 

5000 PRINT"{CLR}{GIU'}{BLU} IL GATTO TI HA CATTURATO E TI 
HA" 

5005 PRINT" MANGIATO..." 

5100 GOTO7010 

6000 PRINT"{CLR}{GIU'}{BLU} SEI RIUSCITO A FUGGIRE SANO E 
SALVO..." 

7010 PRINT"{ 3 GIU'} GIOCHI ANCORA (S/N)?" 

7020 GETA$:IFA$0"S"ANDA$0"N"THEN7020 
7030 IF A$ = "S"THENRUN 
7040 SYS2048 

8000 PRINT" {CLR} { 2 GIU'H 12 SPAZI } {RVS } {RED } CACCIA AL 
TOPO {BLU}{ 4 GIU'}" 

8010 PRINT"{ 3 SPAZI}TU SEI IL TOPO (*) E APPARI IN UN" 
8015 PRINT"{ 3 SPAZI}PUNTO QUALSIASI DEL LABIRINTO. DEVI" 


8018 PRINT"{ 3 SPAZI}RAGGIUNGERE L'USCITA (U), MA STAI" 
8020 PRINT"{ 3 SPAZI}ATTENTO AL GATTO (Q), PERCHE' SE TI" 


8025 PRINT"{ 3 SPAZI}RAGGIUNGE FARAI UNA BRUTTA FINE! 
{GIU*}" 

8030 PRINT"{ 3 SPAZI}PER MUOVERTI USA I TASTI {RVS}A{OFF} 
-{RVS}X{OFF}-{RVS}D{OFF}-{RVS}W{OFF}" 

8035 PRINT"{ 3 SPAZI}OPPURE IL JOYSTICK IN PORTA N.2" 

8040 PRINT"{ 4 GIU'}{BLK}{ 8 SPAZl}PREMI {RVS}RETURN{OFF} 
PER GIOCARE" 

80 50 GETA$ : IFA$OCHR$ (1 3) THEN80 50 
8060 RETURN 


Fusa nel labirinto 



77 trovi all'interno di un labirinto, 
dove quattro malvagi fantasmi co¬ 
perti da un lenzuolo azzurro ti 
danno una caccia spietata per farti 
fuori. Come nelle migliori tradizioni 
gli spettri passano attraverso i muri 
del labirinto, mentre tu ti puoi 


muovere solo utilizzando le porte 
che trovi lungo il tuo cammino. 

Per spostarti usa i seguenti tasti: 
"O" per sinistra, "P“ per destra, 
"Q“ per su e "A" per giù. Il tuo 
punteggio dipenderà da quanto 
riuscirai a rimanere in vita. 
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100 

POKE53280,2 :POKE53 2 81 ,2 

:rem 

234 

no 

PRINT" {CLR} { 10 GIU'HBLK} F U G A{ 

4 SPAZI}N E L 



{ 4 SPAZI}L A B I R I N T 0" 

: rem 

21 4 

120 

GOTO610 

: rem 

99 

140 

K=PEEK(197) 

: rem 

52 

1 50 

IFK064THEN1 80 

: rem 

28 

1 60 

FORDE=lT025:NEXT 

: rem 

248 

1 70 

GOTO340 

: rem 

104 

1 80 

RN=RO:CN=CO 

: rem 

1 77 

1 90 

IFK=38THENCN=CN-1 

: rem 

8 

200 

IFK=41THENCN=CN+1 

: rem 

248 

210 

IFK=10THENRN=RN+1 

: rem 

19 

220 

IFK=62THENRN=RN-1 

: rem 

29 

230 

IFCN> 3 80RCN<1ORRN> 2 50RRN<1THEN34 0 

: rem 

87 

240 

X=PEEK(RNMO+CN+1024) 

: rem 

1 25 

250 

IFX=34THEN340 

:rem 

232 

260 

IFX=36THENl320 

: rem 

26 

270 

IFCN=COANDRN=ROTHEN340 

:rem 

1 59 

280 

POKES+1,55 

: rem 

1 4 

290 

POKES+4,83 

: rem 

1 9 

300 

POKERO*40+CO+1 024,32 

: rem 

49 

310 

POKERN*40+CN+1 024,35 

: rem 

51 

320 

POKERN* 40+CN+55296,2 

: rem 

66 

330 

RO=RN:CO=CN 

: rem 

174 

340 

POKES+4,0 

: rem 

21 2 

350 

RETURN 

: rem 

1 20 

370 

R=INT(RND(0)* 4 ) +1 

:rem 

1 32 

380 

IFNS(R,1 ) =RNTHEN4 80 

: rem 

115 

390 

POKENS(R,1 ) *40+NS(R,2)+1024,ST(R) 

: rem 

47 

400 

POKENS(R,1)*40+NS(R,2)+55296,5 

: rem 

86 

41 0 

NS(R,1)=NS(R,1)+SGN(RN-NS(R, 1 ) ) 

: rem 

230 

420 

ST (R) = PEEK (NS (R, 1 ) M0+NS (R,2) +1 024) 

: rem 

129 

430 

IFST(R) O36THEN450 

: rem 

27 

440 

ST(R)=32 

: rem 

1 32 

450 

POKENS(R,1 )* 40+NS(R,2)+1024,36 

: rem 

75 

460 

POKENS(R,1 )* 40+NS(R,2 ) +55296,6 

:rem 

93 

470 

POKES+1,25:POKES+4,33 

: rem 

185 

480 

IFNS(R,2)=CNTHEN570 

:rem 

1 02 

490 

POKENS(R,1 )* 40+NS(R,2)+1024,ST(R) 

:rem 

48 

500 

POKENS(R,1 )* 40+NS(R,2)+55296,5 

: rem 

87 

510 

NS(R,2)=NS(R,2)+SGN(CN-NS(R,2) ) 

: rem 

219 

520 

ST (R) =PEEK (NS (R,l ) M0+NS (R,2) +1024) 

: rem 

1 30 

530 

IFST(R) O36THEN550 

: rem 

29 

540 

ST(R)=32 

: rem 

1 33 

550 

POKENS(R,1)*40+NS(R,2)+1024,36 

: rem 

76 

560 POKENS(R,1)*40+NS(R,2)+55296,6 

: rem 

94 

570 

IFRN=NS(R,1)ANDCN=NS(R,2)THENl 320 

: rem 

225 

580 

POKES+4,0 

: rem 

21 8 

590 

RETURN 

: rem 

1 26 

600 

REM 

: rem 

1 22 


24 


610 POKE55,0 :POKE56,56 

: rem 

247 

620 PRINTCHRS(1 42) 

: rem 

14 

630 POKE56334,PEEK(56334)AND254 

: rem 

226 

640 POKE1,PEEK(1)AND251 

: rem 

56 

650 FORJ=0TO511 

: rem 

115 

660 POKEJ+14336,PEEK(J+53248) 

: rem 

94 

670 NEXTJ 

: rem 

38 

680 POKEl,PEEK(1)OR4 

: rem 

1 66 

690 POKE56334,PEEK(56334)ORI 

: rem 

76 

700 POKE53272,(PEEK(53272)AND240)+14 

: rem 

1 84 

710 FORJ=l4608TO14631 

: rem 

1 71 

720 READB:POKEJ,B 

: rem 

24 

730 NEXTJ 

: rem 

35 

740 DATA255,255,255,255,255,255,255,255 

: rem 

201 

750 DATA56,68,56,1 0 8,1 70,56,68,1 98 

: rem 

21 8 

760 DATA56,124,1 86,255,255,198,56,56 

: rem 

60 

770 POKE53280,0 

: rem 

43 

780 POKE53281,0 

: rem 

45 

790 POKE646,1 

: rem 

204 

800 S=54272 

: rem 

44 

810 FORJ=STOS+23 

: rem 

224 

820 POKEJ,0 

: rem 

11 1 

830 NEXTJ 

: rem 

36 

840 POKES+24,15:POKES+6,240 

: rem 

32 

850 PRINT"{CLR}" 

: rem 

1 

860 REM 

: rem 

130 

870 FORJ=0TO960STEP40 

: rem 

31 

880 POKEJ+1024,34 

: rem 

1 58 

890 POKEJ+55296,5 

: rem 

1 77 

900 NEXTJ 

: rem 

34 

910 FORJ=39TOl000STEP40 

: rem 

1 20 

920 POKEJ+1024,34 

: rem 

1 53 

930 POKEJ+55296,5 

: rem 

1 72 

940 NEXTJ 

: rem 

38 

950 FORJ=0TO960 

: rem 

1 26 

960 READB 

: rem 

253 

970 FORK=OTOB 

: rem 

36 

980 POKEJ+K+1024,34 

: rem 

21 

990 POKEJ+K+55296,5 

:rem 

40 

1000 NEXTK 

: rem 

75 

1010 J=J+B-1 

: rem 

94 

1020 READB 

: rem 

33 

1030 J=J+B 

: rem 

2 

1040 NEXTJ 

: rem 

78 

1050 DATA38,85,11,2,12,2,9,82,6,2,21,2,5,86 

: rem 

96 

1 060 DATAI 4,2,20,82,24,2,10,86,1 1 ,2,1 4,2,7 

: rem 

29 

1 070 DATA82,24,2,10,86,7,2,8,2,17,81 ,40,0 

: rem 

251 

1090 NS(1,1)=2:NS(1,2)=2 

: rem 

227 

1100 NS(2,1)=2:NS(2,2)=30 

: rem 

1 4 

1110 NS(3,1)=23:NS(3,2)=5 

: rem 

22 
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1 1 20 

NS(4,1)=23:NS(4,2)=30 

: rem 

71 

11 30 

PRINT"{HOME}"TAB(14)"PUNTI: " 

: rem 

68 

1 1 40 

F0RJ=lT04 

: rem 

60 

1150 

ST(J)=32 

: rem 

1 71 

1 1 60 

POKENS(J,1)*40+NS(J,2)+1024,36 

: rem 

106 

1170 

POKENS(J,1)*40+NS(J,2)+55296,6 

: rem 

1 24 

1 1 80 

NEXTJ 

: rem 

83 

1 1 90 

RN=10 :RO=10 

: rem 

1 30 

1 200 

CN=18:CO=l8 

: rem 

108 

1210 

POKERN*40+CN+1 024,35 

: rem 

99 

1 220 

POKERN* 40+CN+55296,2 

: rem 

114 

1 240 

GOSUB370 

: rem 

225 

1 250 

GOSUBl40 

: rem 

221 

1 260 

GOSUB370 

: rem 

227 

1 270 

SC=SC+10 

: rem 

191 

1 280 

PRINT"{HOME}"TAB(20)SC 

: rem 

207 

1 290 

GOSUBl40 

: rem 

225 

1300 

GOTO!240 

: rem 

196 

1 320 

POKES+4,83 

: rem 

62 

1 330 

FORJ=200TOl0STEP-1 

: rem 

101 

1340 

POKES+1,J 

: rem 

28 

1 350 

NEXTJ 

: rem 

82 

1 360 

POKES+4,J 

: rem 

33 

1 370 

FORJ=lT023 

: rem 

114 

1 380 

PRINT 

: rem 

89 

1 390 

NEXTJ 

: rem 

86 

1400 

PRINT"{DES}PUNTEGGIO :"SC; 

: rem 

112 

1410 

FORJ=lTOl000 

: rem 

201 

1 420 

GETGA$ 

: rem 

83 

1430 

NEXTJ 

: rem 

81 

1 440 

NM$ = "":PRINT"{CLR}" 

:rem 

167 

1450 

INPUT"{ 2 GIU'}NOME";NM$ 

: rem 

233 

1 460 

IFLEN(NM$)>16THENPRINT"TROPPO LUNGO !" :GOTOl450 




: rem 

1 81 

1 470 

SA (10) =SC 

: rem 

229 

1 480 

N$ (1 0) =NM$ 

: rem 

237 

1 490 

FORJ = 10TO2STEP-1 

: rem 

12 

1 500 

IFSA(J)<SA(J-1)THENl570 

: rem 

73 

1510 

TP=SA(J-1) 

: rem 

53 

1 520 

T$=N$(J-1) 

: rem 

232 

1 530 

SA(J-1)=SA(J) 

: rem 

194 

1 540 

N$(J-l)=N$(J) 

: rem 

127 

1 550 

SA(J)=TP 

: rem 

219 

1 560 

N$(J)=T$ 

: rem 

142 

1570 

NEXTJ 

: rem 

86 

1 580 

PRINT"{CLR}" 

: rem 

50 

1 590 

PRINTTAB(11)"PUNTEGGI{ 2 SPAZI}MIGLIORI" 

: rem 

233 

1 600 

PRINT"{ 3 GIU'}" 

: rem 

203 

1610 

FORM=1T09 

: rem 

70 

1620 

PRINTTAB(6)M" "SA(M)"{ 2 SPAZI}"; 

: rem 

246 
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1 630 

PRINTN$(M) 

: rem 

1 03 

1 640 

NEXTM 

: rem 

87 

1 650 

PRINT:PRINT 

: rem 

32 

1 660 

PRINTTAB(6)"{ 4 GIU'}PREMI UN TASTO{ 

2 SPAZI}PER 

INI 


ZIARE" 

: rem 

45 

1670 

PRINTTAB(12)"'S' PER SMETTERE" 

: rem 

27 

1 680 

GETQ$ 

: rem 

36 

1 690 

IFQ$=""THEN1680 

: rem 

83 

1 700 

IFQ$="S"THENl770 

: rem 

1 58 

1 71 0 

SC = 1 0 

: rem 

253 

1720 

RESTORE 

: rem 

238 

1 730 

FORJ=1TO 2 4 

: rem 

115 

1 740 

READGA 

: rem 

1 1 2 

1 750 

NEXTJ 

: rem 

86 

1 760 

GOTO850 

: rem 

1 64 

1 770 

POKE491 52,0 

: rem 

95 

1780 

SYS49152 

: rem 

21 2 

1 790 

END 

: rem 

1 68 


Caccia aerea 



_ 



Sei alla guida di un modernissimo 
jet militare che solca i cieli con ve¬ 
locità supersonica, quando all’im¬ 
provviso sullo schermo del tuo ra¬ 
dar appare un aereo nemico. Il tuo 
compito naturalmente è quello di 
abbatterlo inquadrandolo nel miri¬ 
no, che puoi spostare usando i ta¬ 
sti Q (su) e Z (giù). Al momento 
opportuno fai fuoco premendo la 
barra spaziatrice. 


Tieni però sempre conto del tem¬ 
po che i tuoi missili impiegano per 
raggiungere l'obiettivo,- rischi altri¬ 
menti di sprecare un sacco di col¬ 
pi. Durante la tua missione incontri 
15 aerei nemici, e ad ognuno puoi 
sparare una sola volta,- guadagni 
100 punti per ogni centro, e alla 
fine-dei volo viene anche calcolato 
il punteggio medio ottenuto con 
ogni missile lanciato. 


10 CLR:PRINT"{CLR}";CHR$(158);TAB(9);"PREPARAZIONE DEL 


OCO" :rem 
15 K=197:Dl=53278:POKE53280,3 :POKE53281 ,9 :rem 
20 T=53248:0=17000:Sl=l7001:KI=18000 :rem 
25 CI =T+0:C2=T+1 :Ml =T+2:M,2=T+3 :rem 
50 Fi=T+4:F2=T+5:L1=T+6:L2=T+7 :rem 
70 Ri=T+8:R2=T+9:M=T+16 :rem 
95 POKET+21,0:X2=148:Y2=l00 : rem 


Gl 
252 
31 
1 75 
1 77 
1 95 
59 
1 2 
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100 

FORI=0TO62:POKEl6128+1,85:POKEl6064,170: 

NEXT:rem 

88 

1 30 

FORJ=1T05 

: rem 

11 

1 35 

READA,B,C,D,E :POKEA,B:POKEC,D:Z = B* 64 

: rem 

143 

1 55 

IFE=0THEN180 

: rem 

164 

1 60 

FORQl=OTOE 

: rem 

85 

165 

READ H:POKEZ+Ql,H 

: rem 

228 

175 

NEXT 

: rem 

220 

1 80 

NEXT 

: rem 

21 6 

1 82 

GOSUB593 

: rem 

1 88 

1 83 

FORI=l8000T018000+33 

: rem 

47 

1 84 

READS:POKEl,S:NEXT 

: rem 

1 82 

190 

GOSUB24000 :GOSUB25000:POKET+21,2 55 

: rem 

212 

1 95 

POKE53277,24 :POKE53271 ,4 

: rem 

51 

200 

FORJL=lTO2STEP0 

: rem 

190 

210 

FORC9 = lTOl5 :GOSUB600:NEXT 

: rem 

54 

280 

GOSUB300:SC=0:SH=0:NEXT 

: rem 

1 65 

300 

PRINT"{CLR}"; :POKET+21,0 

: rem 

21 7 

31 5 

PRINTTAB(14);"{RVS} RISULTATI " 

: rem 

5 

320 

PRINT"{ 3 GIU'}" 

: rem 

1 53 

32* 

PRINTTAB(10);"PUNTI{ 10 SPAZI}: ";SC 

: rem 

202 

330 

PRINTTAB(10);"COLPI{ 10 SPAZI}: ";SH 

: rem 

1 78 

331 

IFSH=0THENSH=.01 

: rem 

196 

332 

PRINTTAB(10);"CENTRI{ 9 SPAZI}: ";SC/100 

: rem 

1 89 

335 

PRINTTAB(10);"MEDIA PER COLPO: 

: rem 

105 

340 

PRINTINT(SC/SH) 

: rem 

192 

345 

PRINT"{HOME}{ 12 GIU'}"; 

: rem 

1 35 

350 

PRINTTAB(4);"PREMI UN TASTO PER RICOMINCIARE" 




: rem 

7 

351 

PRINTTAB(11);"'S' PER SMETTERE" 

: rem 

32 

353 

FORK1=1TO10 0 :GETA$:NEXT 

: rem 

1 52 

355 

GETA$:IFA$=""THEN355 

: rem 

93 

356 

IFA$O"S"THEN360 

: rem 

107 

358 

SYS2048 

: rem 

109 

360 

POKET+21 ,31 :PRINT"{CLR}"; 

: rem 

19 

365 

RETURN 

:rem 

126 

500 

AS=PEEK(Di):V=1 

: rem 

79 

505 

IFMSTHEN520 

: rem 

1 43 

510 

MS = 1 :SH=SH+1:POKET+21,30 

: rem 

1 35 

51 5 

CN=10 :TG=14*64 + 1:TP=14*64 + 61 

: rem 

21 5 

520 

XI=X2:Yl=Y2:POKEMl,Xl:POKEM2,Yl 

: rem 

173 

530 

POKETG,0 :POKETP,0 :TG=TG+3:TP=TP-3 

: rem 

81 

535 

CN=CN-1 

: rem 

90 

537 

POKEMl,X1:POKEM2,Yl 

: rem 

1 59 

540 

IFCN=1THENGOSUB550:E=0:MS=0:F=0:POKET+21 

,31:RETURN 



: rem 

1 33 

545 

RETURN 

: rem 

1 26 

550 

IFPEEK(Di)AND6=6THENGOSUBl000:E=1 

:rem 

237 

590 

POKEMl,0 :POKEM2,0 : RETURN 

:rem 

5 

593 

FORI = 0TO62STEP3:POKEI + 896,0 :POKEI + 1+ 896, 

2 55 :POKEI+896 


+2,0:NEXT:RETURN 

:rem 

16 


28 


600 POKET+21,1:MS=0:CN=0 :rem 131 

607 FORJ =1TO100 :GETA$:NEXT :rem 104 

610 RN=INT(RND(1)*5):IFRN>4ORRN=0THEN610 : rem 196 

620 IFRN=1THENPl=0:P2=184:M3 = 7:W=RND(1)*3:CT=60 :rem 27 

630 IFRN=2THENPl=184 :P2 = 0:M3 = -7:W=RND(1)*3:CT=60:rem 74 

640 IFRN=3THENPl=184 :P2 = 0 :W=-3*RND(1) :M3 = -7:CT=150 

:rem 169 

650 IFRN=4THENPl=0:P2 = 184 :W=3*RND(1) :M3 = 7:CT=150 : rem 81 

660 POKEL2, Y4 :POKEF2,Y3:POKER2, Y5 :rem 66 

720 E=0:F=0:POKECl,X2:POKEC2,Y2:GOSUB593:POKET+21,31:V=0: 

POKEMl,0 :POKEM2,0 :rem 26 

725 PRINT"{HOME}PUNTI{ 8 SPAZI}{RVS} CACCIA AEREA {OFF} 

{ 3 SPAZI}COLPI"; :rem 90 

730 FORXL=PlTOP2STEPM3:POKEO,XL:POKESl,CT:SYSKI:CT=CT+W:I 
FVTHEN790 :rem 222 

750 A=PEEK(K):IFA=0THEN890 :rem 34 

760 IFA=62THENGOSUB955:GOTO890 :rem 120 

77Q IFA=12THENGOSUB970:GOTO890 :rem 113 

780 IFA=60THENF=1 :rem 245 

790 IFFTHENGOSUB500:IFETHENRETURN :rem 214 

795 PRINT"{HOME}";TAB(6);SC;TAB(36);SH; :rem 208 

890 NEXTXL : rem 132 

895 POKET+21,3 :rem 22 

900 RETURN :rem 121 

955 IFY2 = 30THENRETURN :rem 108 

960 Y2=Y2-5 :POKEC2,Y2: RETURN :rem 3 

970 IFY2=190THENRETURN :rem 160 

975 Y2=Y2+5:POKEC2,Y2: RETURN :rem 7 

1000 FORI = lTOl0:POKE2041,2 52 :rem 88 

1030 FORJ=lTO30:NEXT:POKE2041,251 :rem 214 

1045 FORJ=lTO30:NEXT :rem 232 

1050 NEXT : rem 5 

1 060 SC=SC+100:POKE2041 ,14:RETURN :rem 199 

11000 DATA2040,13,53287,1,62 :rem 136 

11010 DATA255,0,255,255,0,255,255,0,255 :rem 165 

11020 DATA224,0,7,224,0,7,224,0,7 :rem 107 

1 1 030 DATA224,0,7,224,0,7,224,0,7 :rem 108 

11040 DATA224,0,7,224,0,7,224,0,7 :rem 109 

11050 DATA224,0,7,224,0,7,224,0,7 :rem 110 

11060 DATA224,0,7,224,0,7,224,0,7 :rem 111 

11070 DATA255,0,255,255,0,255,255,0,255 :rem 171 

1 1090 REM : rem 223 

12000 DATA2041,14,53288,1,0 :rem 84 

13000 DATA2042,!5,53289,0,62 :rem 143 

13010 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0 :rem 199 

13020 DATA0,24,0,0,60,0,0,60,0,0,126,0,0,126,0,255,255,25 
5,255,255,255 :rem 108 

1 3030 DATAI 46,66,73,1 46,66,73,255,255,2 55,2 55,2 55,2 55 

:rem 127 


29 


14000 DATA2043,253,53290,5,62 :rem 194 

14010 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


,0,0,0,0,0,0,0,0 :rem 100 

14020 DATAO,0,0,0,0,0,0,0,0,3,0,0,7,0^0,15,0,0,63,0,7,255 



,0,255,255,255,255,255 

: rem 

253 

14030 

DATA255,255,255 

: rem 

62 

15000 

DATA2044,254,53291 ,5,62 

: rem 

198 

15010 

DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0, 

0,0 


,0,0,0,0,0,0,0,0,0,0 

: rem 

29 

1 5020 

DATAO,0,0,0,0,192,0,0,224,0,0,240,0,0, 

254,0,0,255,2 


24,0,255,255,128 

: rem 

230 

15030 

DATA255,255,255,255,255,255 

:rem 

151 

24000 

POKE53 280,0 

: rem 

131 

24002 

POKE53281,0 

: rem 

134 

24005 

PRINT"{CLR}": FORII = 1TO20:PRINT:NEXT 

: rem 

197 

2401 0 

PRINTTAB(13);"{RVS} CACCIA AEREA " 

: rem 

147 

24020 

FORU=1T03000:NEXT 

: rem 

129 

24030 

FORI1=1T021:PRINT:NEXT 

: rem 

38 

24200 

RETURN 

: rem 

216 

25000 

REM ISTRUZIONI 

: rem 

251 

25010 

PRINT"{CLR}"; 

: rem 

151 

25020 

PRINT:PRINT 

: rem 

77 

25030 

PRINTTAB(1 3){RVS} CACCIA AEREA " 

: rem 

1 50 

25040 

PRINT 

:rem 

1 36 

25050 

PRINT"IL FINE DI QUESTO APPASSIONANTE 

GIOCO" 




: rem 

57 

25060 

PRINT"E' COLPIRE IL MAGGIOR NUMERO POSSIBILE" 




:rem 

99 

25070 

PRINT"DEI 15 JET NEMICI CHE ATTRAVERSANO IL " 




:rem 

158 

25080 

PRINT"TUO VIDEO." 

:rem 

109 

25090 

PRINT 

: rem 

141 

25100 

PRINT"PER MUOVERE IL MIRINO USA:" 

:rem 

89 

251 10 

PRINT"{ 3 SPAZI}'Q'{ 2 SPAZI}VERSO L'ALTO":rem 

155 

251 20 

PRINT"{ 3 SPAZI}'Z'{ 2 SPAZI}VERSO IL 

BASSO" 




: rem 

1 5 

251 30 

PRINT 

: rem 

1 36 

25140 

PRINT"PER SPARARE I TUOI MISSILI USA" 

: rem 

79 

251 50 

PRINT"LA BARRA SPAZIATRICE" 

: rem 

2 

251 60 

PRINT"{ 5 GIU'}":PRINTTAB(6)"PREMI UN 

TASTO PER 

INI 


ZIARE" 

: rem 

122 

251 70 

GETA$: IFA$ = ""THEN25170 

:rem 

33 

251 80 

PRINT"{CLR}";:POKE53280,3 :POKE53281 ,9 

:rem 

58 

25190 

RETURN 

: rem 

225 

28500 

REM 

: rem 

227 

29500 

REM 

: rem 

228 

30000 

DATAI 73,104,66,1 41 ,6,208,24,105,48,1 41 

,4,208,24, 

105 


,25,141,8,208 

:rem 

146 

3001 0 

DATAI 73,105,66,141 ,7,208,141 ,9,208,56, 

233,21,141 

,5, 


208,96 

: rem 

73 


30 


IN EDICOLA 


ttì ! 


!E:E] : 


ffl : 


ffl :i 




m 






Va 







C* COMMODORE 





































































































A Milano, 

in via Mascheroni 14. 
la prima software 
librerìa italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 







